home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / lib / powerd.lha / powerd_ppc / HiBit.ass < prev    next >
Encoding:
Text File  |  1980-10-25  |  231 b   |  21 lines
  1.  
  2. # HiBit(r3:LONG)(LONG)
  3.  
  4.     .text
  5.     .global    _HiBit
  6.  
  7. _HiBit:
  8.     li    r4,31
  9. .loop:    li    r5,1
  10.     slw    r5,r5,r4
  11.     and.    r0,r3,r5
  12.     bne    .finish
  13.     subi    r4,r4,1
  14.     mr.    r4,r4
  15.     bge    .loop
  16. .finish:    mr    r3,r4
  17.     blr
  18.  
  19.     .type    _HiBit,@function
  20.     .size    _HiBit,$-_HiBit
  21.